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REÚNA SEUS DADOS 


EM GRÁ 


Digite os números e deixe o micro 
convertê-los em histogramas coloridos 
e bem-feitos. Por meio deles, será 
fácil comparar valores diversos ou 
verificar suas tendências temporais. 


Você já deve ter visto alguns anún- 
cios de programas para aplicações co- 
merciais, nos quais se destaca a elabo- 
ração de gráficos sobre estatisticas de 
vendas, evolução de cotação das ações 


COS 


na Bolsa, etc. Esse tipo de informação, 
que em geral envolve uma quantidade 
enorme de números, torna-se de fácil 
compreensão quando representado por 
diagramas ou gráficos. E se preparar um 
gráfico manualmente é trabalhoso, pa- 
ra um computador comercial trata-se de 
tarefa simples e rápida. 

A capacidade de representar informa- 
ções não é, entretanto, atributo exclu- 
sivo dos computadores comerciais. Ela 
estende-se, também, aos computadores 
domésticos, constituindo-se em uma de 
suas áreas de aplicação prática. Todos 


EE COMO FUNCIONA O PROGRAMA 
E ENTRADA DAS INFORMAÇÕES 
E CORREÇÕES 
E | ELABORAÇÃO DOS GRÁFICOS 
E ARMAZENAGEM DOS DADOS 


os computadores apresentados aqui pos- 
suem capacidade numérica e gráfica que 
os habilita a efetuar esse tipo de traba- 
lho, com graus variáveis de precisão € 
de detalhamento gráfico. 

Dificilmente o usuário médio de com- 
putadores domésticos precisará lidar 
com a vasta quantidade de informações 
geradas, por exemplo, por uma peque- 
na empresa. Mas numerosas questões 
que lhe interessam diretamente podem 
ser analisadas de maneira proveitosa em 
um microcomputador. Por exemplo, a 
relação entre seus rendimentos e gastos 








ao longo de um ano; o peso específico, 
em períodos distintos, dos diversos itens 
que compõem seu orçamento; às varia- 
ções mensais de sua capacida 
poupança, 

Além dessas áreas, cujas ap 
se assemelham às comerciais, | 
várias outras, sobretudo rela 
com algum tipo de passatempo;d 
dem ter seus dados analisados E 
sentados graficamente: a frequê 
clube local ou a espetáculos tealrais em 
determinado periodo, a evolução do nú- 
mero de itens em coleções de livros, dis- 
cos ou selos e estatísticas de resultados 
esportivos. 
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O programa apresentado serve para 
preparar, rapidamente, um gráfico de 
barras — ou histograma —, masttando 
as variações temporais de algum tipo de 
valor. Como os eixos do gráfico (hori- 
zontal e vertical) ajustam-se automati- 
camente, pode-se trabalhar comdados 
semanais, mensais, anuais ou dm qual- 
quer outra unidade de tempo. 

O intervalo máximo de valofes utili- 
zado pelo programa depende do seu 
computador. Para o TRS-Colôr, esses 
valores situam-se entre +99e <90, Pa- 
ra o Spectrum, entre + 1000 e = 1000, 
mais ou menos. Já para o Apple é o 
MSX, tais valores podem ter qualquer 
amplitude — unidades, dezenas, Cente- 
nas, milhares e até milhões, se apli- 


cação assim requerer. 


ENTRADA DOS DADOS 




















Ao executar o programa, € 
sentara na tela uma lista das op 
poniveis (o menu). Se for select 
opção para a entrada de dados 
grama pedirá os títulos dos doll 
apresentando-os no momento 
traçar o gráfico. 

Ao entrar com os títulos dos eixos, 
tenha sempre o cuidado de digitá-los 
corretamente e na ordem pedida, O ei- 
xo horizontal (X) representa otêmpo: 
semanas, meses, anos ou qualquer ou- 
tra unidade escolhida. O eixo Vertical 
(Y) representa os valores dados às bar- 
ras — cruzados, temperatura, Rúmero 
de discos, etc. A altura de cada Uma das 
barras será proporcional a estê Valor. 

Em seguida, o programa pede o nú- 
mero de barras que deve apresentar. O 
número máximo possível depende, ba- 
sicamente, da capacidade gráfica do seu 
OIT ador, O Sp UM, POr e mplo, 
ATT OSC à NO ANO Lo Darta: no 
TR5-Color, este número passal Ev) 
Apple e o MSX têm capacida 


apre- 
es dis- 
ada a 
) pro- 
EIXOS, 
que 


de de 


para 


5 APLICAÇÕES 5 














apresentar até 200 barras, mas seu limi- 
te prático é de cerca de 65. Acima deste 
valor, as barras ficam muito finas ou ir- 
regulares, constituindo um quadro vi- 
sualmente pouco claro. 

As perguntas seguintes feitas pelo 
programa referem-se aos valores dos da- 
dos. São apresentados na tela os núme- 
ros sequenciais das barras e uma pergun- 
ta sobre o valor a ser atribuído a cada 
uma. Esse valor, positivo ou negativo, 
é, novamente, limitado pela capacida- 
de numérica do seu computador. No 
TRS-Color, os valores vãosde —999 a 
+999 e, no Spectrum, de = 1000 a 
+ 1000. O Apple e o MXS, por sua vez, 
trabalham com valores de qualquer 
magnitude, já que os gráficos são mon- 











nutado 


um TRS-Color, e você deseja represen- 


tar valores que estão fora da capacida- 


» 
e cidners Dra paag 


de do programa, a solução é fornecer os 
dados divididos ou multiplicados por al- 
gum fator de conversão (por exemplo, 
em unidades de centenas, milhares, mi- 
lhões, etc.). 

Quando o último valor for introduzi- 
do, surgirá novamente a lista inicial de 
opções. Você poderá, então, escolher en- 
tre modificar algum valor digitado ou 
partir para a apresentação do gráfico. Se 
optar pela modificação, os valores que di- 
gitou serão apresentados na tela. Siga as 
Instruções para corrigir o valor desejado. 

Quando estiver satisfeito com os va- 
lores, selecione a opção que permite a 
apresentação do gráfico. Os usuários do 
Apple e do MSX possuem apenas uma 













fico em escala e um gráfico em repre- 
sentação real. 


maneira de apresentar seus gráficos. 




























barra colorida. O TRS-Color apre 
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A opção de um gráfico escalonado 
apresenta o diagrama de barras com as 
dimensões, ao longo do eixo y, arredon- 
dadas para um valor máximo de 10, 100, 
1000, etc., dependendo do valor máxi- 
mo dos dados. Conforme este valor, po- 
rém, o gráfico pode não aparecer intei- 
ramente na tela. 

A opção de um gráfico em represen- 
tação real mostra o diagrama de barras 
ocupando a tela inteira, apresentando os 
valores reais dos dados (não os valores 
em escala) ao longo do eixo y. 

Para maior clareza, as barras apre- 
sentadas pelo Apple, pelo MSX e pelo 
Spectrum são separadas umas das ou- 
tras por um pequeno espaço ou uma 
enta 


k alta 
oo = u PL. 
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TIO E! E Co, “Ta é a 
vos, e de vermelho e laranja, para os va- 
lores negativos. 
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COMO FUNCIONA O PROGRAMA | 


O programa de elaboração de histo- 
gramas tem três rotinas principais: 


e entrada dos dados que serão exibidos 
no gráfico; 

e edição (modificação) dos dados ja en- 
trados; 

e elaboração do gráfico. 


Os dados são armazenados no con- 
juntô A pela primeira rotina. A capaci- 
dade desse conjunto é especificada di- 
namicamente pelo comando DIM, após 
o usuário indicar o número de dados que 


deseja utilizar. Quando o programa en- 


O CONJUNTO É 
que se identifiquem os valores minimo 
e máximo nele presentes, Esses valores 


af 
A) a - RR 
, 4 ho i 


são armazenados nas variáveis LO e HI, 
respectivamente. O valor mínimo prede- 
finido é sempre zero; se os dados apre- 
sentarem um valor minimo maior, este 
será ignorado pelo programa. O valor 
máximo é arredondado: 10, 100, 1000, 
10 000, etc. 

Havendo dados negativos no conjun- 
to A (valor mínimo menor que zero), O 
programa definirá que o gráfico é de ti- 
po 1; senão, de tipo 2. Nos gráficos de 
tipo 1, a linha de base (eixo dos x) fica- 
rá acima do fundo da tela, e as barras 
correspondentes aos valores negativos 
serão dirigidas para baixo. 

O escalamento dos valores de um ei- 
xo é feito segundo uma regra simples, 
que leva em conta os valores minimo e 
máximo, o número de pixels (pontos 
gráficos) que cabem no eixo e o arredon- 
damento ou não dos rótulos ao longo do 
eixo, A fórmula de escalamento é: 


od — RA 


xmax — xmin 


onde; 

x = valor escalado 

x = valor original 

«min = valor minimo na escala 

xmax = valor máximo na escala 

pix número máximo de pixels no 
EIXO 


Em seguida, o gráfico é elaborado. 
Cada computador utiliza um método 
distinto para traçar as barras. Se você 
conhecer um pouco de programação 
BASIC, poderá, nesse ponto, alterar O 
programa para fazer coisas diferentes. 

Por exemplo, a versão para o Sinclair 
Spectrum utiliza o comando PLOT pa- 
ra posicionar o cursor gráfico no ponto 
onde a barra vertical será traçada, e o 
comando DRAW, para traçá-la de uma 
vez. Se você substituir o comando 
DRAW por um outro PLOT, obterá 
apenas um ponto colorido, correspon- 
dente ao topo da barra. 

Outra modificação se refere à defini- 
ção das cores. No Sinclair Spectrum, 
por exemplo, o comando INK determi- 
na a cor a ser usada na barra. Note que 
a variável que se segue a este comando 
é modificada automaticamente pelo pro- 

rama, de modo a alterar a cor da-bar- 


“Ta seguinte. Por meio. de um comando 


INPUT, você pode mudar o programa, 
determinando que a cor seja solicitada 
ao usuário. 

Interessante também é a possibilida- 
é OS GAÇOS É DOS, Eli d Cadsse- 
te ou disquete. Nesse caso, o menu ini- 
cial deverá ter duas opções adicionais: 





1000 


t+ 


TENPERATURES 


MSX: gráfico da variação de temperatura ao longo do ano. 


* armazenar dados 
* gravar dados 


As rotinas correspondentes à estas 
chamadas deverão ser programadas e 
adicionadas ao programa. Assim, você 
podera manter séries de dados armaze- 
nados (por exemplo, os rendimentos da 
caderneta de poupança ou os gastos 
mensais com alimentação) e atualiza-los 
com novos valores sempre quê Quiser 
compará-los ou verificar sua tendência 
por meio do gráfico. Com esta modifi- 
cação, você não precisará, portanto, di- 
gitar os dados anteriores toda vez que 
executar um programa para elaboração 
de gráfico. 





10 PMODE 4,1 

20 CLS 

30 PRINT €45,"MENU”: PRINT 6102, 
*1- INTRODUZIR DADOS”: PRINT €16 
6," 2- GRAFICO DE BARRAS": PRINT 
€6230,"3- VER/CORRIGIR DADOS”: PR 
INT €294,"4- SAIR DO PROGRAMA” 
40 AS=INKEYS:IF AS<"1” OR AS>"4 
” THEN 40 

50 IF AS="1" 
60 ON VAL(AS) 
000,4000 

70 GOTO 20 
80 PRINT €484, "VOCE TEM CERTEZA 
ca 

90 AS=INKEYS:IF AS<>"Y” AND AS< 
>"N” THEN 90 

100 IF A$="y” THEN CLEAR 200:AS 
="1":GOTO 60 

110 GoTo 20 

3 DA=1:CLS:INPUT"NOME DO EIX 
pipa dd 


AND DA=1 THEN 80 
GOSUB 1000,2000,3 


gg 1010 XS=LEFTS(X5S,32):IF NBB”” T 
D HEN XS="EIXO Xº” 


pit | | 
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LOZ0 MD=INT(16-LEN(XS)/2) 

1030 INPUT"NOME DO EIXO Y";YS 
LUSO T$=LEFTS (YS,12):IF Y5="" T 
HEN YS="EIXO Y" 

1050 HT=INT(6-LEN(Y$S)/2) 

1060 INPUT"NUMERO DE BARRAS"; NB 
1070 NB=INT(NB):IF NB<l THEN 10 
60 

1J0B0U BL=INT(26/NB):IF BL<1 THEN 
BL=1 
1090 
1100 
1110 
1120 
NPUT 
1130 
1140 


DIM A(NB) 

PRINT 

FOR K=1 TO NB 

PRINT"VALOR DA BARRA”";K;:1I 
A(K) 

NEXT 

) RETURN 

2000 IF DA=0 THEN PRINT €455,"D 
ADOS NAO INTRODUZIDOS":FOR K=1 
TO 2000:NEXT:RETURN 

2010 TP=0:BT=0 

2020 FOR K=1 TO NB 

2030 IF A(K)>TP THEN TP=A(K) 
2040 IF A(K)J<BT THEN BT=A(K) 
2050 NEXT 

2060 IF TP=0 AND BT=0 THEN PRIN 
T "TODOS OS VALORES SAO ZERO ": 
FOR K=1 TO 2000:NEXT:RETURN 
2070 CLS:PRINT €64,"VOCE QUER U 
M GRAFICO EM ESCALA (5/N)?" 
2080 AS=INKEYS:IF AS<>"E” AND A 
S<>"N” THEN 2080 

2090 IF AS="N” THEN 2120 

2100 IF TP>0 THEN E=INT(LOG(TP) 
/LO6(10)):TP=INT(1I+TP/(10“E))*1 
0“E 

2110 IF BT<O THEN E=INT(LOG(-BT 
)J/LOG(10)):BT=-INT(1-BT/(107E)) 
*10"E 

2120 IN=178/(TP-BT) 

2130 ST=INT(IN*TP) 

2140 T$="":IF TP=0 THEN 2160 
2150 IF TP>ABS(BT) THEN E=2*INT 
(LOG (TP) /LOG(1000)) ELSE E=2*IN 
T(LOG(ABS(BT))/L06(1000)) 

2160 T$="+"+MIDS (STRS (INT (.5+TP 
/10"E)),2):B$="":IF BT=0 THEN 2 





£X Spectrum; gráfico de lucros e perdas por mês 


180 
2170 
2180 
P=26 
2190 
75,0 
2200 
2210 
+ BF 
2220 IF T$="" THEN 2260 

2230 FOR K=1 TO LEN(TS):P=ASC(M 
IDS(TS,K,1)) AND 63:FOR M=0 TO 
11 

2240 POKE 1540-LEN(TS)+32*M+K,P 
2250 NEXT M,K 

2260 IF B$="" THEN 2300 

2270 FOR K=1 TO LEN(B$):P=ASC(M 
IDS (BS,K,1))AND 63:FOR M=0 To 1 
1 


BS=STRS (INT(.5+BT/10"E)) 
SL=1:LP=NB:IF NB>26 THEN L 


POKE 179,243:PCLS:POKE 654 
:POKE 65477,0:POKE 65479,0 
POKE 179,2 

LINE (40,0)-(47,191),PRESET 


2280 
2290 
2300 


POKE 6916-LEN (BS) +M*32+K,P 
NEXT M,K 

FOR K=1 TO LEN(XS) 

2310 P=ASC(MIDS(XS,K,1)) AND 63 
2320 FOR M=182 TO 190:POKE 1503 
+MD+32*M+K, P:NEXT 


2330 NEXT 

2340 FOR K=1 TO LEN(YS) 

2350 FOR M=0 TO 11 

2360 P=ASC(MIDS(YS,K,1)) AND 63 
2370 POKE 1568B+384*(K+HT)+32*M, 
P 

23B0 NEXT M,K 

2390 FOR K=5 TO 31 

2400 POKE 1536+32*ST+K,128B 

2410 NEXT 

2420 FOR K=ST TO O STEP -22 
2430 POKE 1541+K*32,202 

2440 NEXT 

2450 FOR K=ST TO 1/8 STEP 22 
2460 POKE 1541+K*32,202 

2470 NEXT 

2480 FOR K=SL TO LP:CO=(CO+1) A 
ND 1 

2490 POKE 178,35+C0r64:POKE 179 2 


2500 IF INT(A(K)*IN)>O THEN LIN 
E (48+8* (K-SL) *BL,ST-1)-(47+8*(K 


TRS-Color: gráfico da distribuição das notas em uma classe. 


-SL+1) *BL, ST-INT(A(K)*IN)),PSET 
+ BF 

2510 IF FIX(A(K)*IN)<O THEN LIN 
E (48+B* (K-SL) *BL,ST)-(47+B*(K-S 
L+1) *BL, ST-FIX(A(K) *IN)), PRESET 
BF 

2520 NEXT K 

2530 IF LP=NB THEN 2570 

2540 SL=LP+1:LP=LP+26:IF LP>NB 
THEN LP=NB 

2550 IF INKEYS="" THEN 2550 
2560 POKE 179,243:LINE(48,0)-(2 
55,178), PRESET,BF:GOTO 2390 
2570 IF INKEYS="" THEN 2570 
2580 RETURN 

3000 IF DA=0 THEN PRINT €455,"D 
ADOS NAO INTRODUZIDOS" :FOR K=1 
TO 2000:NEXT:RETURN 

3010 SL=1:LP=NB:IF NB>14 THEN L 
P=14 

3020 CLS: PRINT"BARRA”,"VALOR” 
3030 FOR K=SL TO LP 

3040 PRINT K,A(K) 


3050 NEXT 

3060 IF NB=LP THEN 3130 

3070 PRINT €480,"e PARA EDITAR, 
QUALQUER OUTRA PARA CONTINUA 
RT; 
3080 AS=INKEYS:IF A$="" THEN 30 
BO 

3090 IF AS="E” THEN 3170 

3100 SL=LP+1:LP=LP+14 

3110 IF LP>NB THEN LP=NB 

3120 GOTO 3020 

3130 PRINT 8480,"e PARA EDITAR, 
QUALQUER OUTRA PARA RETORNAR 


3140 AS=ENKEYS:IF AS="" THEN 31 
40 

3150 IF AS="E” THEN 3170 

3160 RETURN 

3170 CLS:PRINT: INPUT”"NUMERO DA 
ENTRADA A SER EDITADA 2";E 
3190 PRINT:PRINT"NOVO VALOR DA 
ENTRADA” ; E; : INPUT A(E) 


1000 REM *XROTINA PARA ENTRADA 


ADONONOCOCONECNNNAAANHA 


3200 GOTO 3020 

4000 CLS: PRINT €637,"VOCÊE TEM CÊ 
RTEZA (5/N)?” 

4010 AS=INKEYS:IF AS<>"5S” AND À 
S<>"N”" THEN 4010 

4020 IF A$="N” THEN RETURN 


10 LET 9g=0: POKE 23609,20: 
POKE 236585, 

100 BORDER 7: PAPER 7: INK O: 
CLS 

110 PRINT BRIGHT 1; PAPER 3; 
INK 7J:AT 4,10;" O PC O E 5” 
120 PRINT BRIGHT 1L;AT 7,4;" 1 
- INTRODUZIR NOVOS DADOS " 

130 PRINT BRIGHT L;AT 9,4;" 2 
- VER / EDITAR DADOS ” 

140 PRINT BRIGHT 1l;AT 11,4;” 
3- GRAFICO EM ESCALA 1d 
145 PRINT BRIGHT L;AT 13,4;" 
4- GRAFICO EM TELA CHEIA ” 
150 PRINT BRIGHT 1; FLASH 1; 
INK 2:;AT 16,9;" SELECIONE OPCA 
o" 

160 IF INKEYS="" THEN GOTO 
160 

170 LET AS=INKEYS: IF A$<"1º 
OR AS>"4" THEN GOTO 160 

180 GOSUB VAL AS*1000: GOTO 
100 
500 REM “**ROTINA PARA ENTRADA 
DE DADOS NUMERICOS** 
510 INPUT (wS); LINE aS: IF 
LEN a$=0 THEN coTo 510 

520 FOR j=1l TO LEN as 
sqndrr (a$g(3)>="0" AND aS(3)<= 
"9" On ag(lsp="." OR as(3)="=" 
THEN NEXT 5: LET v=VAL aS: 
RETURN 
550 GOTO 510 


“n É» Tb] + b E 


CLS 


1020 INPUT "NOME DO EIXO X? 


Apple: gráfico dos saldos mensais da poupança. 



















































"LINE x5 
1030 PRINT  INVERSE 1;AT 0,0;" 
ae 5 Tb o 
1040 INPUT "NOME DO EIXO Y? "; 
LINE y5S 
1050 PRINT  INVERSE 1;AT 0,16;€ 

ati é Goa 

1060 LET wS="QUANTO "+x5+" (1 A 

25)? ”": GOSUB 500 

LO70 IF v<l OR v>25 OR vsS21INT v 
THEN GOTO 1060 
1090 LET z=v: DIM a(z) 

1100 FOR k=1 TO z 
1110 LET wS="DIGITE DADOS PARA 
"+STAS kt” ": GOSUB 500 
1120 LET a(k)=v 
1130 PRINT k,a(k) 

1140 NEXT k: LET 9g=1: PAUSE 50: 

RETURAN 

2000 REM **ROTINA PARA EDICAO D 
E DADOS** 

2010 BORDER 2: PAPER 2: INK / 
2020 LET cn=1 
2025 CLS : PRINT PAPER 6; INK 
2:AT 0,0;x5S, vyS; TAB 31;" * 

2030 PRINT cn,a(en) 
2035 PRINT 41; PAPER 6; INK 2:A 

T 0,0;"EDIT para alterar valor 
corrente Qualquer tecla para co 
ntinuar * 

2040 PAUSE O 

2050 IF INKEYS="" THEN GOTO 20 
50 

2060 LET cS=INKEYS 

2070 IF cS=CHRS 7 THEN GOSUB 2 
500 

2080 IF cn=z THEN PRINT PAPER 
6: INK 2;"FIM DOS DADOS”: PAUS 

É 100: RETURN Á 

2090 LET cnscn+l: IF cn=21 THEN 
GOTO 2025 

2100 GoToO 2030 

2500 LET w$=" INTRODUZIR NOVO VA 

LOR PARA "+STRS ent” ": GOSUB 5 

POTE “Edo 4. v: PR TN “ “BDLDED 

6; INK 2;cn,a(cn);TAB 31;" ": R 

ETURN 


ES RENA pd, A=e = 








3000 REM **GRAFICO EM ESCALAX* 
3010 BORDER O: PAPER O: IR 

CLS : LET hi=0:; LET 1o=0] ] 

3020 FOR k=1 TO z ? 

3030 IF a(k)>hi THEN LET hi-a( 
k) 

3040 IF a(k)<lo THEN LE o=a( 
k) | 

3050 NEXT k 

3060 LET type=2: LET org*s4 

3070 IF lo<0 THEN LET type=1: 
LET org=84 | 

3080 LET h=hi: IF ABS lo>hi THE 


N LET h=ABS lo 
3090 LET ra=hi-lo 
LET nãel : GO 


3100 IF h<=1 THEN 

TO 3150 

3110 IF h<=10 THEN LET BirlO0: 
GOoTo 3150 

3120 IF h<=100 THEN LET/Hi=100 
: GOTO 3150 | 

3130 IF h<=1000 THEN LET hi=10 
00: GOTO 3150 

3140 IF h<=10000 THEN LET hi=l 
0000 

3150 LET wd=INT (25/2z) 

3160 IF type=1 THEN LETIEt=80/ 
hã 

3170 IF type=2 THEN LETIEt=162 
fh1 ] 

3180 PLOT 56,0rg: DRAW 198,0 
3190 PLOT 55,4: DRAW 0,160 

3200 FOR n=4 TO 168 STEPHB: PLO 
T 52,n: DRAW 3,0: NEXT n 


3220 PRINT tl; 
2 MS A ha 
3225 LET 28=" "á+ys+” 

3230 FOR n=1 TO LEN z5 

3240 PRINT AT n+(19-LEN Y5)/2, 0 
: PAPER 1;zS(n) 

3250 NEXT n | 

3255 LET dc=1 Hg! 

3260 IF type=l THEN GOTO 3320 
3270 FOR n=hi TO O STEP a 
) 
3275 
3280 
3290 
3295 
3300 
3310 
3320 
5) 
3330 IF n<.01 AND n>-.01 THEN 
LET n=0 
3340 LET n$=STRS n 

3350 PRINT AT dc, (6-LEN ns) ; n 
3360 LET dc=dc+2 

3370 NEXT n 

3400 LET ink=1 | 
3410 FOR n=1 TO z A 
3420 LET cm=org | 
3430 LET ink=ink+l1: 
EN LET ink=2 

3440 INK ink Ro! 
3450 FOR m=1 TO (a(n)*ft) STEP 
SGN a(n) al! 
3460 PLOT 56+(n-1) *wd*8,em: 
W wd*8-2, 0 E) 
PESE 


”, 
“a 


PAPER 1;AT 0,l4; 


IF n<º.01 THEN LET n=0 
LET nS=S5STAS n 

PRINT AT dc, (6-LEN n$) ; n 
LET dec=dc+2 

NEXT n E 
GOTO 3400 a 


FOR n=hi TO -hi STER - (hi/ 


IF 1nk=8 TH 








3490 NEXT n Na 
3500 IF INKEYSS>2"” THEN 
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500 

3510 IF INKEYS="" THEN GOTO 35 
10 

3520 RETURN 

4000 REM **GRAFICO EM TELA CHEI 
Ar * 

4010 BORDER O: PAPER O: INK 7: 
CL: LET hi=0: LET lo=0 

4020 FOR n=1l TO z 

4030 IF a(n)>hi THEN LET hizal 
n) 

4040 IF a(n)<lo THEN LET lo=a( 
n) 

4050 NEXT n 

4060 LET ra=hi-lo: LET £ft=175/r 
a: LET org=(ra-hi)*tft 

4070 LET wd=INT (25/2z) 

4080 PLOT 56,0rg: DRAW 198,0 
4090 PLOT 55,0: DRAW 0,175 

4100 PRINT 41; PAPER 1;AT 0,14; 
ros: 


110 LET 2$=*" "+y9+" * 

4120 FOR n=l TO LEN z5 

4130 PRINT AT n+(19-LEN v5)/2,0 
- PAPER 1;z5(n) 

4140 NEXT n 

4150 PRINT AT 0,0;hi;AT 21),0;lo 
4200 GOTO 3400 


10 CLS:RESTORE 

20 DATA ENTRAR DADOS, GRAFICO DE 
BARRAS,VER/EDITAR DADOS, FIM DE 
PROGRAMA 

30 LOCATE7,2:PRINT'M E NU P 

RINCIPAL” 

40 FORI=1TO4:READMS 


50 LOCATE1L0,2*1+7:PRINTI;"- ";M 
5 

60 NEXT 

BO PRINT:PRINT:PRINTTAR(20)"0PÇ 
hO2l; 


90 RS=INKEYS:IFRS=""THEN9O 
100 IFRS<"1"ORRS>"4"THEN9O0 
110 ONVAL (R$)G0T0O1000,2000,3000 


,/4000 
150 LO=VA(1) :HI=VA(I) 
160 FORI= LTONBê 


IFVA (1) >HITHENHI=VA(I) 

180 IFVA(I)<LOTHENLO=VA(I) 

190 NEXT:RETURN 

1000 CLS: IFNB$<>OTHENLOCATE10,1 

4: PRINT"CONFIRMA? ";ELSE1030 

1010 RS=INKEYS:IFR$=""THENI0O1O 
1020 IFRS<>"S"THENIO 

1030 CLS:LOCATEIO: PRINT" ENTRADA 
DE DADOS” 

1040 CLEAR:LOCATEO,4: IINPUT"NOME 
DO EIXO-X ";xS 

10580 XS=LEFTS (X$,9) : IFX$=""THEN 

XS="EIXO-X" 

1060 INPUT"NOME DO EIXO-Y ";Y5 
1070 YS=LEFTS (Y$,9)4 Rd =» + rHEN 
YS="EIRO-Y" 

1080 PRINT: INPUT"NUMERO DE BARRAR 

AS: ";NB% 


170 


1090 IENB$>65THEN1080 
1100 PORT SLTONE: PRRPE SERA 





INPUTVA (1) 
1130 NEXT:GOTOIO 





2000 IFNB$=OTHENIO 

2010 GOSUB15O 

2020 IFSGN(HI)<2>25GN(LO) THENHT=A 
BS (HI) +ABS (LO) :GOTO2050 

2030 HT=ABS( (SGN(HI)=1)*ABS (HI) 
+ (SON (LO) =-1) *ABS(LO)) 


2040 IFHT=OTHENIO 

2050 A=2*INT((180-3*NB3)/NB$/2' 
:5=3:ES=150/HT 

2060 IFA>ISTHENA=15 

2070 IFLO>=0THENY=155:6G0T02100 
2080 IFHI<=0THENY=5:GOTO2100 
2090 Y=INT(80+ (ABS (HI)-ABS(LO)) 
*ES/2) 


2100 SCREENZ:COLOR 15,4,4:P=6] 
2110 LINE (55,5)-(55,158) : LINE 
(32,7)-(250,7) 

2120 FORI=1TONBt 

2130 LINE (P,Y-SGN(VA(I)))-(P+A 
+INT(Y-(VA(I)*ES))),6,BF 

2140 P=P+S+A:NEXT 
2150 OPEN "GRP: ” 
1 
2160 
2170 
2180 
“NEXT 
2190 
2200 
2210 
2220 
mm Dia 
2230 PRESET(15,155+(150*(H120)) 
) : PRINT4A1, LO*(- (SGN(LO)=-1))+HI 
* (- (SGN (H1)=1)) 

2240 GOTO 2270 

2250 PRESET(15,155):PRINT41,LO: 
PRESET (15,5): PRINT&1,HI 


FOR OUTPUTASt 


PRESET(0,3) 
FORI=1TOLEN(YS) 
PRINT41, TAB(I)MIDS(YS,1,1) 


PRESET (1/0,160) 
PRINT+L,XS 
IFSGN(LO)<>2S5GN (HI) THEN2250 
PRESET (0,7): PRINTAL, TAB(4) 





































Poe LV rr 














2260 PRESET(0,Y):PRINT4L, TAB(4) 
"Q” 

2270 
2280 
2290 


CLOSE 

IFINKEY$=""THEN2280 
SCREENO:GOTOLO 

3000 IFNB$=OTHENIO 

3010 CLS: LOCATEIO: PRINT"MÓDULO 
DE EDIÇÃO” 

PRINT: PRINT"BARRA”, 
FORJ=1TONB% 
PRINTJ,VA(J) 
IFINT(J/17)=J/17THENGOSUB3 


"VALOR" 


NEXT 

| GOSUB3090 

3080 GOTOIlO 

3090 LOCATEO, 20: PRINT"Tecle <E> 
para editar ou qualquer outra 

tecla para continuar”; 

3100 R$=INKEYS: IFR$=""THEN3100 
3110 IFR$<>"E”THENLOCATEO,3:FOR 
H=1TOl9:PRINTSPC (40) :NEXT:LOCAT 
EO, 3: RETURN 

3120 LOCATEO,20: PRINTSPC(79):LO 
CATEO,20:INPUT"Qual barra ";B 
3130 LOCATEO,21: INPUT"Novo valo 
r ":VA(B) 

3140 I=B:GOSUB15O 

3150 G0TO3090 

4000 CLS:LOCATE?,1l4:INPUT"FIM D 

E PROGRAMA (5/N)";RS5 

4010 IFR$<>"5S"THENIO 


10 
20 


RESTORE 


HOME : 
ENTRAR DADOS, GRAFICO 


DATA 
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DE BARRAS, VER / 


EDITAR DADOS, F 


IM DE PROGRAMA 

30 VTAB 3: HTAB 8: PRINT CM E 

NU PRINCIPAL 

40 FORI=1Tod 

50 READ M$ 

60 HTAB 10: VTAB 2 * I + 8: PR 

INT 1;"- ";M$ 

70 NEXT 

80 PRINT PRINT HTAB 20: PR 

INT "OPCAO =2"; 

90 GET R$: IF R$ < "1" OR R$ 2 
"4” THEN 90 

100 ON VAL (R$) GOTO 1000,200 


0,3000,4000 
110 LO = VA(I): 


HI = VA(I) 


120 FOR I = 1 TO NEL 

130 IE VA(I) > HI THEN HI = VA 

(1) 

140 IF VA(I) < LO THEN LO = VA 

(1) 

150 NEXT RETURN 

1000 HOME : IF NBt < > O THEN 
VTAB 15: PRINT TAB( 10)"CONF 

IRMA? (5/N)” GET RS: IF RS < 
> "8" THEN 10 

1010 HOME PRINT TAB( 10)"EN 

TRADA DE DADOS” 

1020 cLEAR VTAB 4d: INPUT "NO 

ME DO EIXO 'X': ":XS 

1030 X5 = LEFTS (X5$,5): IF XS 

= "" THEN XS$ = "EIXO-X" 

1040 INPUT "NOME DO EIXO 'Y' 

di de 

1050 YS = LEFTS (YS,5): IF Y5 

= "" THEN YS = "EIXO-Y" 

1060 PRINT INPUT "NUMERO DE 

BARRAS: ";NB& 



































































































1070 IF NBt > 65 THEN 1060 

1080 DIM VA(NB$) 

1090 PRINT : PRINT 

1100 FOR I = 1 TO NB$ 

1110 PRINT "VALOR DA BARRA “;1 
;: INPUT VA(I) 

1120 NEXT : GOTO 10 

2000 IF NB$% = O THEN 10 

2010 GOSUB 110 

2020 IF SGN (HI) < > SGN (L 

O) THEN HT = ABS (HI) + ABS ( 

LO): GOTO 2050 

2030 HT = ABS (( SGN (HI) = 1) 
* ABS (HI) + ( SGN (LO) = - 
1) * ABS (LO)) 

2040 IF HT = O THEN 10 


2050 à = 2 * INT((270-2*N 


Bt) / NBt / 2):8 = 2:ES = 150 / 
HT 

2060 IF A > 15 THEN À = 15 

2070 IF LO > = O THEN Y = 155 
: GOTO 2100 

2080 IF HI < = O THENY=-ÕõGS: 

GoTo 2100 

2090 Y = INT (76 + ( ABS (HI) 
- ABS (LO)) * ES / 2) 

2100 HGR HCOLOR= 7:P = 4 
2110 HPLOT 2,0 TO 2,158: HPLOT 
O,Y TO 279,Y 

2120 HCOLOR= 5 

2130 FOR I = 1 TO NBt 

2140 FOR J =1 TOA 

2150 HPLOT J + P,Y - SGN (VA( 
Ti) TO Jd + P, INT (E - (VAC) * 
E8)) + 1 

2160 NEXT :P =P + 5 + A: NEXT 
2170 VTAB 21: HTAB 1: PRINT XS 
: TAB( 34);Y5 

2180 VTAB 22: HTAB 10: PRINT * 

VAL MAX=";HI;: HTAB 25: PRINT * 
VAL MIN=" 

2190 PRINT TAB( 5);" PRESSIONE 


QUALQUER TECLA PARA SAIR”; 


2200 GET R$: TEXT : GOTO 10 
3000 IF NBft = O THEN GOTO 10 
3010 HOME PRINT TAB( 10)"MO 
DULO DE EDICAO” 

3020 PRINT PRINT "BARRA","VA 
LOR” 

3030 FOR J = 1 TO NBt 

3040 PRINT J,VA(J) 

3050 IF PEEK (37) = 20 THEN 
GOSUB 3090 

3060 NEXT 

3070 GOSUB 3090 

3080 coTo 10 

3090 VTAB 21: HTAB 1: PRINT “T 


ECLE <E> PARA EDITAR OU QUALQUE 


R OUTRA TECLA PARA CONTINUAR 
";: GET R$: IF R$ < > “E” THEN 
VTARB 4: HTAB 1: CALL —- 2205 

ETURN 


3100 VTAR dos Lda, Ai CAÉL 


PRINT "FIM DE PROGRAMA? ";: 
R$: IF R$< > "S” THEN 10 

























CRIE SPRITES 


NO MSX 


Um sprite é um tipo especial de carac- 
tere gráfico definido pelo usuário, dese- 
nhado em alta resolução e extremamen- 
te fácil de movimentar. Alguns exemplos 
de seu uso já foram vistos em artigos an- 
teriores. Além da mobilidade, o sprite 
tem outras características especiais, tais 
como a possibilidade de definir e movi- 
mentar mais de um sprite e de indicar se 
houve colisão na tela — ou seja, se dois 
sprites coincidiram no mesmo ponto. 

Não surpreende, portanto, que os spri- 
tes estejam presentes na maioria dos pro- 
gramas de jogos. Mas são, também, uti- 
lizados em qualquer tipo de programa 
que necessite de figuras móveis em alta 
resolução — por exemplo, programas fi- 
nanceiros que empreguem um “icone” 
(simbolo apontando para as opções). 


| DEFINIÇÃO DE UM SPRITE 


O desenho de um sprite é definido 
informando-se ao computador quais 
pontos devem ser “acesos'”' e quais de- 
vem ser “apagados |, para que se obte- 
nha o padrão desejado. Existem dois ta- 
manhos de sprite: pequeno (8x8 pontos) 
e grande (16x16). No decorrer deste ar- 
tigo, trataremos apenas dos sprites gran- 
des, salvo menção em contrário. 

Um sprite grande é formado por de- 
zesseis linhas de dezesseis pontos cada. 
Em vez de se definir, ponto por ponto, 
quais serão acesos ou apagados, 
reunem-se cada oito pontos em um gru- 
po. Assim, a informação sobre o padrão 
de uma linha do sprite é armazenada em 
dois grupos de oito pontos cada. 
Atribuindo-se o algarismo '*|”º para os 
pontos acesos e “0” para os apagados, 
cada grupo de oito pontos se transfor- 
mará em um número binário (byte de 8 
bits) que, convertido para a forma de- 
cimal, dará origem a um número entre 
O e 255. Cada sprite, portanto, é forma- 
do por 32 grupos de oito pontos, 32 nú- 
meros binários de oito dígitos (8 bits ou 
| byte) ou, simplesmente, 32 números. 
Estes números são agrupados em uma li- 
nha DATA, ordenados como descrito 
adiante. Calculam-se da mesma maneira 
os valores para sprites pequenos, já que 


EM cles são formados por oito linhas de oi- 
E to pontos cada, dando origem a 8 bytes. 


A ordem dos bytes no sprite é a se- 


guinte; 


Linha |: BYTE | BYTE 17 
Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 


. € assim por diante até que: 


Linha 15: BYTE 15 BYTE 31 
Linha 16: BYTE 16 BYTE 32 


Entre os vários recursos gráficos 

do MSX, o sprite destaca-se 

por servir de base ao funcionamento 
da maioria dos jogos de ação. 

Veja como é fácil usá-lo. 


«.. Sendo que os bytes foram numerados 
na ordem em que aparecerão na linha 
DATA. 

Uma orientação para o cálculo des- 
tes valores, uma vez definido o padrão 
gráfico para o sprite, é dada na figura 
da página 190. Por meio do exemplo, 
você terá uma idéia de como obter o va- 
lor decimal correspondente a um gru- 
po de oito pontos. Se todos os pontos 
estiverem-acesos, o valor decimal será 





e u— nd —— . 








O QUE É UM SPRITE? 
“APLICAÇÕES 
COMO DEFINIR 


E MOVIMENTAR SPRITES 
PRIMEIROS PASSOS 








OS PRIMEIROS PASSOS 


Exercite-se um pouco. Comece dese- 
nhando o padrão da figura desejada em 
papel quadriculado. Deli- 
mite uma área de dezes- 
seis por dezesseis qua- 
drinhos e indique as posi- 
ções dos bytes. Na figura da 
página 190, por exemplo, 
definimos um sprite que 
representa uma nave espacial, 
Ao lado da figura, temos o va- 
lor de cada byte em decimal, € 
7 primeiro byte da primeira linha tem 
todos os seus pontos apagados, exce- 
Pio o último, cujo valor podemos encon- 
trar no alto da figura. Como só há um 
ponto aceso, seu valor é o valor total do 
byte: 1. Na segunda linha temos o se- 
gundo byte (veja a ordem dos bytes no 
sprite, já fornecida). O segundo ponto 
está aceso, bem como o último. Se con- 
sultarmos os valores desses pontos no al- 
ta da tabela, veremos que o valor do 
byte 2 € 64+1=65. Os próximos três 
bytes têm o mesmo valor. A propósito, 
uma recomendação prática: após calcu- 
lar o valor de um byte, verifique se, no 
resto do sprite, existem outros bytes com 
o mesmo padrão e, portanto, com o 
mesmo valor. Agora vamos à linha 6. 
O byte 6 tem o segundo e o sétimo pon- 
tos acesos, O que lhe dá um valor de 
64 + 2 = 66. O valor do byte 7, que apre- 
senta os pontos 2 e 6 acesos, é 
64+4=68.0 byte 8, por sua vez, tem 
os pontos 1, 2, 3, 5 e 8 acesos, resul- 
tando num valor de 128464 +32 +8+ 
= 233. Calcule os bytes restantes do 
mesmo modo, Terminado o trabalho, 
coloque os números obtidos em uma li- 
nha com instrução DATA, Para definir 
e movimentar o sprite, digite o progra- 
sã ma completo: 
1284+64+32+ 16+8+4+2+ 1, ouse- 10 SCREEN 2,2:COLOR 15,4,4 
ja, 255 (veja, no alto da figura, o valor 20 FOR I=1 TO 32 
pelo qual se deve multiplicar cada pon- 30 READ A:AS=AS+CHRS (A) 


























































































































































































































to). Se todos estiverem apagados, aso- 40 NEXT 1 | 

ma dos valores será zero. Entre estes ár DR eo ER a 
dois extremos haverá um único valor pa- 20 PUT SPRITE À, (1,1),10,0 
ra cada permutação possível de pontos ao NEXT T 


acesos e apagados. Cada valor obtido 
pode ser usado na definição do sprite, 
| desde que colocado em uma linha DA- 
TA, na ordem já especificada. 


100 DATA 1,65,65,65,65,66,68, 
233,169,191,175,163,227,3,15,17 
,0,4,4,4,4,132,68,46,42,250,234 
.138,142,128,224,16 


RA O RS 


[] UM PROGRAMA PARA CRIAR 


SPRITES 


o. O USO DOS SPRITES 


“TIRO AQ PÁSSARO": 
CONTROLE DE COLISÕES 


Para a definição de um sprite em BA- 
SIC, devem-se colocar os valores ja cal- 
culados dentro de uma cadeia alfanume- 
rica. Em nosso exemplo, isso é feito pe- 
lo laço FOR...NEXT das linhas 20, 30 
e 40. Note que dentro de uma cadeia não 
se colocam números e, sim, caracteres 
cujos códigos ASCII correspondam aos 
números desejados. Observe a linha 30. 
Ela lê os dados da linha DATA e os co- 
loca na variável A$, usando a função 
CHRS (A), que define o caractere cujo 
código esta na variável A. 

A definição propriamente dita do 
sprite é feita na linha 50, pelo comando 
SPRITES (0) A$. O número O é o nú- 
mero do sprite (no MSX podemos ter 
sprites numerados de O a 9). Observe que 
na linha 10 escolhemos a tela de alta re- 
solução, pois a de texto de 40 colunas 
não permite o uso de sprites. Nessa li- 
nha encontramos o comando SCREEN 
2,2. Como você já deve saber, o primei- 
ro número corresponde ao formato da 
tela (2 para a tela de alta resolução). O 
segundo número deve ser novo para vo- 
cê. Ele estabelece o tamanho do sprite 
utilizado: O-pequeno (8x8), I-pequeno 
ampliado (16x16, EUR resolução), 
2-grande (16x16) e 3-grande ampliado 
(32x32, baixa resolução). 

Para desenhar e movimentar o spri- 
te na tela usamos o comando PUT 
SPRITE. Não é preciso seguir o sprite 
apagando posições já ocupadas: ao de- 
senharmos um sprite na nova posição, 
a antiga é automaticamente apagada. O 
formato desse comando é PUT SPRI- 
TE P,(X,Y),C, N, onde Pé a priori- 
dade do sprite, X é a coordenada hori- 
zontal do sprite, variando de -32 (fora 
da tela, portanto) a 255; Y é a coorde- 
nada vertical, que varia de -32 a 191, po- 
dendo ainda assumir os valores 208, que 
faz com que todos os sprites de menor 
prioridade desapareçam da tela, e 209, 
que apaga o sprite na tela; C é a cor do 
sprite, e N, o número do sprite. 

Quando dois ou mais sprites ocupa- 
rem a mesma posição na tela, aparece- 
rá apenas o que estiver “na frente”, ou 
seja, aquele que tiver o número de prio- 
ridade menor. Isso permite dar aos seus 
jogos efeitos tridimensionais. Os carros 
passam atrás dos postes, e ursos se €s- | 
condem atrás de árvores, por exemplo. 











VALORES DOS PONTOS 
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UM PROGRAMA PARA CRIAR SPRITES 





A tarefa mais aborrecida, ao se tra- 
balhar com sprites, consiste em calcu- 
lar os 32 números que serão colocados 
na linha DATA, Em vez de fazê-lo ma- 
nualmente, use um programa que tra- 
balhe por você, 

Este deverá, em primeiro lugar, per- 
mitir a utilização dos recursos de edição 
e movimentação do cursor do MSX pa- 
ra desenhar a figura do sprite na tela. 
Em seguida, precisará calcular os valo- 
res correspondentes que serão incluidos 
na linha da instrução DATA, 
possibilitando-lhe usar o sprite em seus 
programas. 

O programa seguinte foi preparado 
para efetuar todas essas coisas, ofere- 
cendo ainda a opção de produzir uma 
cópia impressa, caso você tenha uma im- 
pressora. A tarefa de digitá-lo e gravá- 
lo em uma fita cassete é compensado- 
ra, pois facilita muito a posterior cria- 
ção de sprites. 


5 SCREEN 0:KEY OFF 

10 DIM AS(16),2(2,16),A(16) 

20 CLS:PRINT TAB(10);"EDITOR DE 
SPRITES” 

30 PRINT:PRINT TAB(8);: INPUT "C 

ÓPIA IMPRESSA (S/N)",IS:IF I$S-= 
"S” THEN PR$="5" 

40 IF 15<>"5” AND I5S<>"N” 

GOTO 20 

50 PRINT:PRINT TAB(15);"Aguarde 


THEN 


60 FOR Z=1 TO 8 

62 READ A(Z) :A(Z+B)=A(Z) 

64 NEXT 

66 DATA 128,64,32,16,8,4,2,1 

70 FOR Z=1 TO 16 

75 READ AS(Z) 

80 FOR ZZ=1 TO B 

85 IF MIDS(AS(Z),2ZZ,1)="*" THEN 


NUMEROS DA 
LINHA DATA 





Na figura ao lado — um 
sprite representando uma 
nave espacial —, os 
números das linhas e os 
valores dos pontos estão 
indicados em suas 
respectivas posições, para 
facilitar o acompanhamento 
dos cálculos. 

Veja como os 

valores são somados, para 
dar origem aos números da 
linha DATA, mostrados à 
direita, Há dois números 
para cada linha, 
representando dois bytes 
com oito pontos cada. O 
cálculo desses valores pode 
ser feito manualmente ou 
com o uso de um programa, 





Z(l,Z)=Z(1L, 2) +A(ZZ) 

90 NEXT ZZ:FOR ZZ=9 TO 16 

95 IF MIDS(AS(Z),Z2Z,1)="*" THEN 
Z(2,Z)-Z(2, 2) *tA(Z2Z) 

100 NEXT ZZ,Z 

110 CLS:IF PR$="S”" THEN OPEN "L 

PT:”" FOR OUTPUT AS 41 ELSE OPEN 
"CRT:" FOR OUTPUT AS 41 

120 PRINT 4&1,"Linha DATA ”"; 

130 FOR Z=1l TO 16 

132 PRINT 41,Z(1,2Z2);","; 

134 NEXT Z 

136 FOR Z=1 TO 16 

138 PRINT 41,Z(2,Z);:IF Z<1l6 TH 

EN PRINT q41,",”: 

140 NEXT Z 

145 PRINT 41,” T:PRINT 41," * 

150 IF PR$="S”" THEN GOTO 170 
155 PRINT 41,"Aperte RETURN par 

a continuar” 

160 K5=INKEYS 

165 IF KS<>CHAS (13) THEN GOTO 1 

60 

170 SCREEN 1,3:COLOR 14,5,5 

172 VPOKE BASE (6)+15,68 

174 VPOKE BASE (6)+5,69 

176 PRINT 41, TAB(5):;"DESENHO DO 
SPRITE” 

178 PRINT 

180 PRINT 

123456" 

190 FOR Z=1 TO 16 

195 PRINT 4I,TAB(5); 

200 FOR ZZ=1 TO 16 

205 IF MIDS(AS(Z),ZZ,1)="*" THE 

N PRINT 41,CHR$(120); ELSE PRIN 

E Pa 

210 NEXT ZZ: PRINT 41," ";Z 

220 NEXT Z:IF PR$="5S” THEN CLOS 

E : END 

230 FOR Z=1 TO 16 

240 AS=AS+CHRS (Z(1,Z)) 

250 BS=BS+CHAS(Z(2,2Z)) 

260 NEXT:SPRITES (0) =AS+BS 

2!'0 FOR Z=190 TO 5 STEP -5 

275 PUT SPRITEO, (10,Z),1 

280 NEXT 

290 IF PRS$<>"S" 


0%," CSPRINT 81,” 
t1,TAB(5);"1234567890 


THEN GOTO 290 


| | 


REM 123456/7890123456 
DATA” a 
DATA” a 
DATA” x 
DATA” x 
DATA” - 
DATA” dá 
DATA” u 
DATA” J 
309 DATA” já 
DATA” É 
DATA” ; 
DATA” 
DATA” é 
DATA” a 
DATA” o 
DATA” 4 


Rode o programa, tal como ele esta, 
para verificar se houve algum erro de di- 
gitação. Ao fazê-lo, responda N à per- 
gunta da linha 30, 

Para usar o programa, digite LIST 
300-. Isso fará com que as dezesseis li- 
nhas DATA vazias do final da listagem 
surjam na tela. Desenhe dentro delas o 
padrão do seu sprite. Cada uma das de- 
zesseis posições das linhas, entre as as- 
pas, representa um ponto. Use apenas 
os controles de movimentação do cur- 
sore a barra de espaço, colocando um 
asterisco nas posições que deseja acen- 
der. Evite usar INS e DEL, que alteram 
O número de posições entre as aspas. 
Não deixe de apertar RETURN em ca- 
da uma das dezesseis linhas DATA: ca- 
so contrário, o MSX não se lembrará 
delas. Oriente-se pelos números da linha 
300, que correspondem às posições ho- 
rizontais. Um desenho típico se encon- 
tra na figura da página ao lado, que re- 
presenta um pássaro voando. 

Quando completar seu desenho, apa- 
gue a tela e liste as últimas linhas para 
conferir. Rode o programa. O compu- 
tador lhe dará, então, a opção de cópia 
impressa. Responda N e veja o resulta- 
do na tela. 

Primeiro, surgem os 32 números das 
linhas DATA. Um desenho ampliado de 


316 





PLANEJAMENTO DE SPRITES 

Existe um modo muito prático de 
usar o programa de criação de sprites. 
Desenhe seu sprite em papel quadricu- 
lado com tamanho correspondente ao 
das linhas DATA do final da listagem. 
Pregue-o com fita adesiva na tela de 
sua TV. Em seguida, simplesmente use 
os controles do cursor para desenhar 
asteriscos nas posições dos quadrinhos 

| que você pintou. 









seu sprite é mostrado a seguir, 
apertando-se a tecla RETURN. As Le- 
clas CTRL e STOP, pressionadas ao 
mesmo tempo, interrompem o progra- 
ma. Caso tenha uma impressora e dese- 
je uma cópia impressa, rode o progra- 
ma novamente e responda 5 à pergunta 
da linha 30. O resultado será enviado à 
impressora, e não à tela. Algumas im- 
pressoras requerem um ajuste no núme- 
ro máximo de caracteres por linha (use 
quarenta). 

Para o exemplo da figura do passa- 
ro, o resultado é o seguinte: 


Linha DATA 128 , 192 , 176 , 7 
2? . 16 , 84.,, 50 , 42 , 41 4 3 
7 ', 26 0 4, 56 ; ED9 ;,.9B.; &8 

Too 90 = 42 ,. Bá , B4 , 168 
- LJ68 , 208 , 160 , 248 , 4,3 
q. Z22 , 3) , IM su Tê 


DESENHO DO SPRITE 


1234567890123456 
Es ns VEaaÕs xx 24 
é PEN XXXX FA 
RR uses K.K.X 3 
a A X.X.X q 
«RAK.X + E é 5 
dp Gp GeRe qo Gp: [8] 
EK: ;X:X.X.K 7 
ce MARK. À B 
a ds ss 9 
.X..K.KKXKKKK 10 
HMM. pasmo» sm 11 
SEEM ES esses JE 
XXX... KX.XXKX 13 
XX KKK. .X x l4 
RX RX. «X 1s 
XXX -==XssÃ:s. J6 


O mesmo programa pode ser utiliza- 
do para sprites pequenos. Para tanto, 
desenhe seu padrão utilizando apenas 
os oito primeiros bytes, ou seja, no qua- 
drante superior esquerdo do conjunto de 
linhas DATA. Considere apenas os pri- 
meiros oito números calculados. 


COMO USAR O SPRITE 





“O programa seguinte desenha e mo- 
vimenta o sprite do pássaro, que acaba- 
mos de calcular. 


10 SCREEN 1,2:COLOR 15,4,4 

20 FOR I=1 TO 32 

21 READ A:AS=AS+CHRS (A) 

22 NEXT I:TIME=0 

23 SPRITES(0)-AS 

25 X=90:Y=X:GOTO 50 

30 KS$=INKEYS:A=0:XX=0 

31 IF K$="" THEN GOTO 30 

32 IF K$=-CHRS(30) THEN A=1:GOTO 


35 IF KS-CHR$(31) THEN A=2:GOTO 
50 
40 IF K$=CHRS (29) THEN KX=-2:GO0 


a A 


To 50 

45 IF R$=CHR$ (28) THEN XX=-2:GOT 
o 50 

50 FOR Z=-1 TO 10 

52 X=X+KX: IF X>255 THEN X=0 

55 IF X<-32 THEN X=255 

60 IF A=1 AND Y>-32 THEN Y=Y-2Z 

65 IF A=2 AND Y<190 THEN Y=Y+2 

70 PUT SPRITE O, (X,Y),15 

75 NEXT Z:GOTO 30 

100 DATA 128,192,176,72,116,84, 
S0,42,41,37,26,4,56,199,98,28,/ 
,30,42,84,84,168,168,208,160,24 
8,4,34,222,33,144,72 


O sprite é desenhado na tela de tex- 
tos de 32 colunas e pode ser movimen- 
tado pelas teclas de controle do cursor. 
Para usar qualquer outro sprite, basta 
mudar a linha 100. 

O laço contido nas linhas 20, 21 e 22 
lê os valores da linha 100 e os coloca na 
variável A$. A linha 25 define o sprite 
atribuindo-lhe o número O. As linhas de 
30 a 75 movimentam o sprite conforme 
a tecla pressionada. 


COLISÃO DE SPRITES 





Outro recurso interessante dos spri- 
tes é a indicação da ocorrência de coli- 
são entre dois deles, em sua movimen- 
tação pela tela. Para entender como 1s- 
so é feito, apague a linha 32 do último 
programa e acrescente: 


20 SPRITE ON:FOR I=1 TO 40 

22 NEXT I:TIME=0:5=0 

23 SPRITES(0)=LEFTS (AS, 32) 

24 SPRITES(1)=RIGHTS(AS,8) 

25 X=90:Y=K:XX=100:YY=XK 

30 FOR Z=-1 TO 5:LOCATE 0,0 

31 PRINT "TEMPO: “; TIME; 

35 A=INT(AND(1)*3)+1:X=K+10 

36 IF X>255 THEN X=-30 

40 IF A=1 AND Y>-30 THEN Y=-Y-10 
45 IF A=2 AND Y<250 THEN Y=Y+10 
50 PUT SPRITE 1,(X,Y),15,0 

52 ZS=INKEYS: IF Z5$="" THEN GOTO 
53 IF Z$=CHR$(29) AND XX>-30 TH 
EN KX=XX-5 

55 IF ZS=CHRS (28) 
EN KX=XX+5 

60 IF ZS$=CHRS$S (30) 
EN YY=YY-5 

65 IF ZS5=CHRS(31) 
EN YY=YY+5 

70 PUT SPRITE O, (XX, YY),10,1 

72 ON SPRITE GOSUB 1000 

75 LOCATE 20,0:PRINT "SCORE: ”; 


AND XX<250 TH 
AND YY>-30 TH 


AND YY<190 TH 


76 NEXT Z:IF TIME<5000 THEN 30 
BO PRINT:PRINT "O Tempo acabou 
1” : END 

110 DATA 8,8,62,8,8,0,0,0 

1000 SPRITE OFF:S=5+1 

1010 FOR I=Y TO 191 

1020 PUT SPRITE 1,(X,1),15,0 
1030 NEXT I:SPRITE ON 

1040 X=- 30: RETURN 


COMO EDITAR UMA LINHA DATA 
Para evitar o trabalho de digitar a li- 
nha DATA criada pelo programa. faça 
o seguinte: assim que o computador 
fornecer os números, pare o programa 
usando CTRL + STOP. Movimente o 
cursor até o topo da tela, onde se en- 
contra a linha DATA. Usando DEL, apa- 
que a palavra “Linha” e, usando INS, 
escreva o número da linha DATA no | 
programa que está preparando. À se- 
quir, aperte RETURN. O efeito será 
idêntico ao da digitação de todos aque- | 
les números. 
| Este método pode ser usado para 
colocar a mesma linha em programas 
já existentes em fita. Carregue o pro- 
grama sem apagar a linha DATA da ta- 
bela. O programa carregado apaga a 
memória, mas não apaga a tela. Movi- 
| mente o cursor até a linha DATA, mo- 
difique seu número, se necessário, E 
| aperte RETURN. 


Este é um pequeno jogo de “tiro ao 
pássaro”, extremamente simples, mas 
útil à nossa finalidade. Não explicare- 
mos seu funcionamento enquanto jogo, 
restringindo-nos apenas ao controle de 
colisões. 

Para que possamos trabalhar com co- 


“lisões de sprites, devemos “habilitar” o 


programa a reconhecer tal ocorrência, 
por meio da instrução SPRITE ON, na 
linha 20. Uma vez feita a habilitação, 
devemos usar a Instrução ON SPRITE 
GOSUB, que desvia o programa para 
uma sub-rotina sempre que quisermos 
verificar se houve uma colisão de spri- 
tes. Nesta sub-rotina pode estar progra- 
mado um efeito visual ou sonoro de ex- 
plosão, por exemplo. Em nosso progra- 
ma, tal comando ocorre na linha 72. Ca- 
so haja colisão entre o pássaro e a “mi- 
ra”, o controle é transferido para a sub- 
rotina 1000, que incrementa o escore e 
faz com que o pássaro caia. Durante a 
execução da sub-rotina, o programa é 
desabilitado pela instrução SPRITE 
OFF na linha 1000. Esse é um procedi- 
mento usual e quase sempre necessário, 
e não há uma explicação simples para 
ele. Retire este comando, bem como o 
de habilitação da linha 1030, e veja co- 
mo ocorrem erros no escore. 

Existe ainda a instrução SPRITE 
STOP, que não desabilita o programa 
mas adia qualquer desvio, guardando a 
ocorrência de colisões na memória. Só 
haverá o desvio após a ocorrência de um 
SPRITE ON no programa. 
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CONJ 








Os conjuntos são uma forma de re- 
presentação de dados em programa BA- 
SIC, constituindo método mais adequa- 
do para se programar a manipulação de 
informações inter-relacionadas — por 
exemplo, listas dos membros de um clu- 
be, com seus respectivos endereços e ins- 
crições, registros financeiros ou, então, 
listas de personagens, armas e tesouros 
para um jogo de aventuras. 

O comando LET, que você ja conhe- 
ce, poderia ser utilizado para atribuir va- 
lores como esses a uma série de variá- 
veis. No entanto, para listas muito lon- 
gas, ele é bastante ineficiente, pois to- 
ma muito tempo de digitação. 

O conjunto simplifica o trabalho, ar- 
mazenando a informação de uma for- 
ma mais compacta. Em vez de uma va- 
riável diferente para cada item da infor- 
mação, utiliza-se uma variável com o 
mesmo nome para todos os itens — o 
A, por exemplo. E, para se diferenciar 


NTOS: CAIXAS 
DE INFORMAÇÃO 








um item dos demais, acrescenta-se sim- 
plesmente um número (ou, as vezes, uma 
expressão aritmética) entre parênteses, 
logo após o nome da variável. O primei- 
ro elemento é chamado de A(1), o se- 
gundo de A(2), o terceiro de A(3) e as- 
sim por diante. 

O conjunto não apenas torna o sis- 
tema de armazenagem mais compacto, 
como também facilita grandemente a 
programação da entrada, modificação 
e listagem dos dados nele contidos. 


COMO DIMENSIONAR UM CONJUNTO 





Antes de utilizar um conjunto em 
BASIC, é necessário declarar ao com- 
putador o tamanho (número de elemen- 
tos) que ele o terá. Assim, o computa- 
dor poderá reservar espaço suficiente na 
memória. Isto é feito mediante a decla- 
ração DIM (de “dimensão”'), como se 
vê a seguir: 


ZIP IRL =70m 


LO DIM A(3) 


Os conjuntos constituem um recurso 
muito eficaz para armazenar e 
processar listas de qualquer natureza: 
nomes, datas, as mais diversas 
estatísticas. Aprenda a utilizá-los. 


Use um A maiúsculo para os micros 
da linha ZX-81. 


10 DIM a(á) 


A declaração DIM acima informa ao 
computador que o conjunto A terá qua- 
tro elementos, ou variáveis. Nos com- 
putadores Apple, TRS-Color e MSX 
eles são numerados de A(0) a A(3). Nos 
micros da linha Sinclair, que não acei- 
tam o elemento A(0), eles são numera- 
dos de A(l) a A(d). 

O número de elementos que se vai di- 
mensionar pode ser tão grande quanto 
se queira (milhares, por exemplo), des- 
de que caiba na memória RAM do com- 
putador, é claro. Na verdade, não é 
obrigatório dimensionar o numero exa- 
to de elementos que se utilizarão: para 
ter a garantia de que o espaço será sufi- 
ciente, reserve um pouco mais. Mas te- 
nha em mente que o espaço de memó- 
ria reservado com um DIM não poderá 








ser 
SO, 
rec 
mé 











ser ocupado por outras variáveis. Por is- 
so, não dimensione exageradamente, ou 
receberá uma mensagem de “estouro de 
memória” (out of memory). 


ATRIBUIÇÃO DE VALORES 





O passo seguinte consiste em atribuir 
os valores para cada elemento. Se, por 
exemplo, as variáveis representassem as 
locações da tela nas quais se imprimiria 
um texto ou um gráfico, a próxima li- 
nha seria mais ou menos isto: 


.=— E ———p==— — = - 
É . | EMI | 
: : 1 tl 
=] | | o 


20 LET A(0O)=0:LET A(1l)=2:LET A( 
2)=10:LET A(3)=20 


20 LET a(l)=0: LET a(i)j=a: 
LET a(3)=10: LET a(4)=20 





DE UM CONJUNTO 
COMO DIMENSIONAR 
— UM CONJUNTO: 
A DECLARACÃO DIM 


20 LET A(1)=0 
30 LET A(2)=2 


40 LET A(3)=10 
50 LET A(4)=20 


Até agora, não houve economia de 
tempo ou de espaço na memória. Ao con- 
trário, teria sido bem mais rápido utilizar 
um simples comando LET. Mas veja em 
seguida o que acontece quando é neces- 
sário armazenar valores que são diferen- 
tes, cada vez que se roda o programa: 


EE 


TIE CIAL 


a | | A Fi 
| 4º k I o 
li el! À NR. 


10 DIM A(3) 








ATRIBUIÇÃO DE VALORES 
CONJUNTOS DE NOMES 


EM UM CONJUNTO 


ia 
RR mn o Den 
Em UTILIZAÇÃO DOS DADOS 
a 


E ANÁLISEDAS INFORMAÇÕES 


20 PRINT"QUAIS .SAO OS VALORES?" 


10 DIM a(4) 

20 PRINT "Quais sao os valore 
g7" 

30 INPUT all), a(2),a(3) a(d) 


10 DIM A(4) 


20 PRINT "QUAIS SAO 
OS VALORES?” 




















30 INPUT A(l) 
40 INPUT A(2) 
50 INPUT A(3) 
60 INPUT A(4) 


O computador pedirá o valor de ca- 
da variável, sempre que você rodar o 
programa. Bastará, então, digitar um 
número (seguido por <ENTER> ou 
<RETURN>) quando o computador 
solicitar. 

Assim, na medida em que o programa 
tiver um numero maior de elementos, o 
tempo economizado passará a compen- 
sar o trabalho inicial. Suponha, por 
exemplo, que você queira entrar uma 
centena de números. Um programa bem 
simples será o suficiente: 


RIA TIT 


10 DIM A(99) 

20 FOR N=0 TO 99 
30 INPUT A(N) 

40 NEXT N 


No ZX-81 digite em letras maiúsculas. 


10 DIM a(100) 

20 FOR n=1 TO 100 
30 INPUT a(n) 

40 NEXT n 





CONJUNTO DE NOMES 


O tipo de conjunto descrito até aqui 
permite apenas o armazenamento de nú- 
meros. Mas também é possível utilizar 
conjuntos para armazenar cadeias alfa- 
numéricas. 

Se você quiser processar tanto nomes 
quanto números, por exemplo, precisa- 
rá definir dois conjuntos separadamen- 
te: um para os nomes e outro para os 


números. O dimensionamento do con- 
junto especifico para nomes é assim: 


Rr TT 


10 DIM AS(5) 





Nos micros da linha Sinclair (ZX-81 
e Spectrum) é necessário ainda especifi- 
car o comprimento máximo que a cadeia 
alfanumérica poderá ter. Assim, s€ O 
maior nome da lista tiver dez caracteres, 
os conjuntos de nomes serão dimensio- 
nados da seguinte maneira: 


No ZX-81 digite em letras maiúsculas. 
10 DIM a$S(6,10) 


Em cada caso o computador reservou 
espaço na memória para seis cadeias al- 
fanuméricas (nomes, rótulos, etc). Pa- 
ra definir o laço de entrada desses no- 
mes, digite: 


REA TIT 


30 INPUT ASC(N) 
40 NEXT N 


20 FOR n=1l TO 6 
30 INPUT as (n) 
40 NEXT n 


Rode o programa e entre os nomes 
à medida que forem pedidos na tela, 
seguindo-os por < ENTER> ou <RE- 
TURN>. Se você quiser verificar, logo 
após digitar cada nome, se o armazena- 
mento foi correto, adicione esta linha ao 
programa acima e rode-o novamente: 


Moi tTE- 


35 PRINT AS(N) 


35 PRINT aStn) 


Não é difícil digitar seis nomes, mes- 
mo que sejam longos. E, ainda que o 
número de nomes chegue a cem, o tra- 
balho será rápido. Imagine, por exem- 
plo, que você esteja realizando uma pes- 
quisa sobre o campeonato de Fórmula 
1 e deseja armazenar os nomes das cur- 
vas e o número de batidas que ocorre- 
ram em cada uma delas durante uma 


| | | | = | 
| | | 


temporada de corridas. Não será impro- 
vável que precise entrar algumas deze- 
nas de curvas, ou até mais, dependen- 
do do caso. Mas o princípio é o mesmo 
que o utilizado no programa a seguir, 
com apenas seis nomes. Este programa 
faz com que o computador leia a série 
de nomes de curvas do autódromo de 
Jacarepaguá, armazenados em declara- 
ções DATA (os micros da linha ZX-81 
não dispõem desse recurso): 

fo A 

LO DIM AS(5) 

20 FOR N=0 TO 5 

30 READ AS(N) 

40 NEXT N 


50 DATA NORTE, NONATO, PACE 
60 DATA UM, VITORIA, LAGOA 


10 DIM asS(6,11) 

20 FOR n=1 TO 6 

30 READ as (n) 

40 NEXT n 

50 DATA"NORTE","NONATO","PACE” 
60 DATA"UM","VITORIA","LAGOA”" 


Os nomes são lidos nas declarações 
DATA na linha 50 e armazenados em 


um conjunto, na linha 10, Assim, cada 
vez que O programa é rodado, os mes- 
mos nomes entram automaticamente. 
No caso de existirem cem nomes, em vez 
de seis, modifique a linha 10 para DIM 
A$(99) e a linha 20 para FOR N = 0 
to 99 (para os micros Apple, TRS-80, 
TRS-Color e MSX), ou DIM AS (100, 
IDeFORN = 1 TO 100 (para o Spec- 
trum). Em seguida, você poderá acres- 
centar os 94 nomes restantes às decla- 
rações DATA, a partir da linha 50. 

O próximo passo será a definição do 
conjunto que conterá o número de aci- 
dentes em cada curva. 


TT 











| 
| 
| 








70 FOR N=0 TO 5 

BO READ A(N) 

90 NEXT N 

100 DATA 0,2,5,1,3,6 


60 DIM a(6) 

70 FOR n=1l TO 6 

BO READ a(n) 

90 NEXT n 

DATA 0,2,5,1,3;,6 


É possivel ignorar o elemento zero de 
um conjunto, nos computadores Apple, 
MSX, TRS-80 e TRS-Color, se for mais 
conveniente. Assim, no último exemplo, 
podemos definir DIM AS (6) e numerar 
os itens de | a 6. Isso significa que 
AS(0) fica vazio, pois é mais usual con- 
tar a partir do 1 do que 0. 





UTILIZAÇÃO DOS CONJUNTOS 


Agora o computador já “'sabe 
quantos acidentes ocorreram em cada 
curva. Mas como essa informação po- 
de ser manipulada? 

Provavelmente, você gostaria que, 
antes de mais nada, o computador im- 
primisse uma lista com todas as curvas 
e o número dos acidentes registrados em 
cada uma — somente para checar se os 
dados foram digitados corretamente. 
Adicione as linhas seguintes ao progra- 
ma e rode-o de novo. 


drivTT 


210 FOR N=0 TO 5 
220 PRINT AS(N),A(N) 
230 NEXT N 


210 FOR n=1l TO 6 
220 PRINT aS(n),a(n) 
230 NEXT n 


As linhas 210 e 230 percorrem a lis- 
ta, enquanto a linha 220 imprime os no- 
mes e Os números armazenados nos con- 
juntos correspondentes. Se algum erro 
de digitação foi cometido, você terá a 
oportunidade de localizá-lo. 

Você pode, também, querer analisar 
os resultados contidos nos conjuntos, 
Por exemplo, para o levantamento da 
corridas, seria interessante obter respos 
tas para questões tais como: “quantas 
colisões ocorreram ao todo?””; “quais 
são as curvas mais seguras?”. As linhas 
adicionais do programa, destinadas a 
identificar o total de acidentes, são as 
seguintes: 


| | | | | 
| | | 
| 
| | 





300 CLS 

310 LET TL=Q 
320 FOR N=0 TO 5 
330 LET TL=TL+A (N) 
340 NEXT N 
350 PRINT 
ENTES *;TL 


fold 


Substitua no programa anterior o co- 
mando CLS por HOME, na linha 300. 


"NUMERO TOTAL DE ACID 


CLS 

| LET total=0 

FOR n=l TO 6 

LET total=total+a(n) 

| NEXT n 

PRINT "Numero total de aci 
dentes: ":total 


ANÁLISE DA INFORMAÇÃO 





Imagine o quanto o programa acima 
seria útil se existissem cem curvas, em 
vez de apenas seis. 

E, levando em conta que a informa- 
ção não apenas pode ser facilmente ar- 
mazenada em um conjunto, como tam- 
bém pode ser analisada com a mesma 
facilidade, você entenderá por que os 
conjuntos constituem um instrumento 
tão poderoso — para qualquer coisa, 
desde orçamento doméstico até finanças 
internacionais. 

Digite estas linhas extras para exami- 
nar um exemplo de análise: 


UT 


400 FOR N=0 TO 5 
410 IF A(N)>3 THEN PRINT AS(N), 
A (N) 


420 NEXT N 
















400 FOR n=1 TO 6 

410 IF a(n)>3 THEN PRINT aS(n 
),a(n) 

420 NEXT n 


Esta parte do programa mostra na te- 
la uma lista das curvas nas quais ocor- 
reram mais de três acidentes. Em nosso 
exemplo de seis nomes, elas são as cur- 
vas PACE e LAGOA. Se você substituir 
o número 3 pelo 5, na linha 410, e ro- 
dar o programa, apenas LAGOA será 
impresso. Para qualquer número maior 
do que 6 — nesse caso, o maior valor — 
nada será impresso. 

A informação armazenada nos con- 
juntos poderia ser, para dar um segun- 
do exemplo, uma lista de famílias de 
uma cidade, juntamente com estatiísti- 
cas como o número de crianças, Os ren- 
dimentos mensais e o número de carros. 

Uma vez que esses elementos tenham 
sido entrados, eles poderão ser classifi- 
cados em grupos e analisados de inúme- 
ras maneiras. Por exemplo, suponha 
que queiramos listar os dados de todas 
as famílias com sobrenome começando 
com P. Para ter uma idéia de como isso 
funciona, acrescente estas linhas ao 
programa: 


ri TT 


600 FORN=0TOS 

620 IFLEFTS(AS(N),1)="P"THENPRI 
NTAS (N) 

630 NEXT 


600 FOR n=1 TO 6 

620 IF ag(n,1)="P” THEN PRINT 
as (n) 

630 NEXT n 


As linhas 600 e 630 definem um la- 
ço, para examinar cada elemento do 
conjunto de nomes. A medida que isso 
ocorre, a linha 620 checa o primeiro ca- 
ractere. Se ele for P, um nome inteiro 
aparecerá. 

Nesse caso, a curva chamada PACE 
será impressa, porque é a única que co- 
meça com P. No exemplo do conjunto 
de família, poderíamos escrever uma li- 
nha do programa que listasse todas as 
famílias 'SILVA', todas as que tivessem 





"mais de um carro, e assim por diante. 


Outra possibilidade é o cruzamento de 


* informações — por exemplo, quais as 


pessoas cujos nomes começam por *A”, 
que moram em determinada rua, no nú- 
mero 21, e cujo cachorro é um fila bra- 
sileiro! 
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Rápidos e eficientes, os programas 
em código de máquina têm, contudo, 
uma desvantagem: é extremamente di- 
ficil escrevê-los e depurá-los. Frequen- 
temente, de fato, eles parecem apenas 
uma sequência de números sem sentido, 
pois instruções, dados e endereços são 
todos especificados como números he- 
xadecimais. 

A solução não está em deixar de es- 
crever programas em códigos de máqui- 
na. A maioria deles é escrita inicialmente 
em linguagem Assembly e depois tradu- 
zida para código de máquina. Normal- 
mente, isto é feito por um outro progra- 
ma, chamado Assembler (ou seja, mon- 
tador). Porém, se você não dispuser de 
um Assembler — ou se quiser aprofun- 
dar seus conhecimentos — poderá fazer 
essa tradução manualmente e digitar os 
códigos hexadecimais resultantes na me- 
mória do computador, entrando o pro- 
grama monitor ou o interpretador BA- 
SIC (comandos PEEK e POKE). 





A LINGUAGEM ASSEMBLY. 


Você terá, assim, que aprender a lin- 
guagem Assembly, que está longe de ser 
tão difícil quanto os códigos de máqui- 
na. Os mnemônicos, que representam os 
códigos de operações da máquina, pra- 
ticamente dispensam explicações, pois 
são abreviaturas muito claras dos co- 
mandos correspondentes (mnemônico 
significa que lembra algo). Os dados e 
endereços são todos numéricos, assim 
como os códigos de máquina. Mas, 
usando códigos alfabéticos para escre- 
ver os comandos, a sequência pura de 
números será rompida, e ficará muito 
mais fácil para o programador entender 
o programa resultante, 

Ao se programar em linguagem As- 
sembly, portanto, basta consultar em 
uma tabela os códigos mnemônicos re- 
ferentes ao microprocessador utilizado 
pelo seu computador. 

O Sinclair Spectrum, o ZX-8l, o 
TRS-80 e o MSX empregam o micro- 
processador Zilog Z-80, enquanto O 
TRS-Color usa o Motorola 6809, é o 
Apple Il e o TK-2000 utilizam o 6502. 
O resultado da consulta à tabela é o có- 
digo de operação numérico correspon- 


dente. Coloque-o no lugar correto, e a 
tradução estará praticamente feita. 

Há algo mais a ser lembrado. Nos 
computadores das linhas Sinclair, Ap- 
ple II, TRS-80 e MSX, não se pode es- 
quecer de troçar a ordem dos bytes cons- 
tantes de um endereço de memória, do 
programa, ou de outros dados que pre- 
cisam ser representados por dois bytes 
(dezesseis bits). A razão disso é que es- 
sas máquinas armazenam numeros no 
formato de byte-baixo/byte-alto. O 
TRS-Color utiliza um formato inverso, 
ou seja, de byte-alto/byte-baixo, de mo- 
do que você poderá deixar os dados ou 
endereços de dezesseis bytes em sua or- 
dem normal. 





OS MNEMÔNICOS 


Os mnemônicos — assim como os có- 
digos de máquina em hexa que eles re- 
presentam — servem para manipular o 
conteúdo de um registro, definir o va- 
lor de um sinalizador ou passar de um 
ponto a outro no programa. Estas são, 
basicamente, as únicas coisas que as ins- 
truções em código de máquina são ca- 
pazes de realizar. Um exemplo de mne- 
mônico é LDA, que significa LoaD Ac- 
cumulator (carregar o acumulador). 





Se quisermos utilizar esse recurso, de- 
veremos começar por aprender a tradu- 
zir os mnemônicos da linguagem As- 
sembly para códigos hexadecimais. 





ENDEREÇAMENTO 


Contudo, traduzir programas em lin- 
guagem Assembly para código de má- 
quina não é tão fácil quanto parece. 
Mesmo uma instrução simples como 
LDA pode ser traduzida para cinço a 
quinze códigos de operações diferentes, 
dependendo da máquina. 

Os diversos códigos de operações de- 
pendem do tipo de endereçamento que 
está sendo utilizado, ou seja, das formas 
de acesso à memória RAM que são uti- 
lizadas pelo microprocessador. 

Veremos a seguir como realizar a tra- 
dução correta de um programa em lin- 
guagem Assemblv para os vários tipos 
de computador. Na próxima lição, 
aprenderemos a montar rotinas muito 
uteis em linguagem Assembly. 


=! Tl 


O tipo mais simples de endereçamen- 
to no ZX-81 é o chamado endereçamen- 








M 
pj 
m 
é 











de- 
lu- 
À s- 


in- 
á- 
ce. 
mo 
j a 


de- 
ue 
jas 
11- 


n- 
2H- 








DD SS 


— — = E 


Montar programas em código de máquina 
pode ser um risco para seu equilíbrio 
mental! Uma alternativa mais saudável 
é escrevê-los em Assembly e depois 
traduzi-los para hexadecimal. 


to imediato, no qual um valor numéri- 
co é usado como argumento do código 
de operação: 


LD A,4 


significa: “carregar (LOAD) o acumu- 
lador (A) com o número 4": essa Ins- 
trução é traduzida para o código 3E04 
em linguagem de máquina. 

Já no endereçamento direto é forne- 
cido um endereço onde o dado pode ser 
encontrado, ao invés do próprio dado, 
Por exemplo: 


LD A,(0E2D) 


significa: “carregar o conteudo da lo- 
cação 0E2D no registro A”. Isto se tra- 
duz para 3A 2D 0E (observe que os dois 
bytes correspondentes ao endereço fo- 
ram trocados). 

O endereçamento direto também fun- 
ciona de modo inverso: 


LD (0E2D),A 


significa: “carregar o conteúdo do re- 
gistro A na locação de memória 


0E2D”. Isto é traduzido para 32 2D DE 
(novamente os dois bytes foram inter- 
cambiados). Um terceiro tipo é o ende- 


reçamento indireto. Este diz à máquina 
onde encontrar o endereço do dado ne- 
cessário. Por exemplo, a instrução: 


LD A, (HL) 


significa: “carregar o registro À com o 
dado pertencente ao endereço contido 
no par de registros HL””. 

Em outras palavras, o microproces- 
sador examina o registro HL e usa esse 
número como o endereço da locação de 
memória onde está o byte a ser carrega- 
do no acumulador. 

Esse comando funciona também na 
direção contrária: 


significa: “carregar o conteúdo do re- 
gistro À na locação de memória cujo en- 
dereço se encontra no par de registros 
HI. 

Existe um tipo especial de endereça- 
mento indireto que é chamado de ende- 
reçamento indexado. Aqui, um dos dois 
registros de indexação — IX e IY — e 
o próprio endereço a ser utilizado são 
fornecidos por um valor de deslocamen- 
to, O qual é acrescentado aos conteúdos 
dos registros IX ou IY. 

Uma instrução típica poderia ser: 


e ão 
= AS A 
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s LINGUAGEM ASSEMBLY 
= CÓDIGOS MNEMÔNICOS 
E  COMOCONVERTER OS CÓDIGOS 
E ENDEREÇAMENTO 
o DESVIOS E USO DE RÓTULOS 


LD A, (IX + 2F) 


Observe que o deslocamento é de 
apenas um byte. 

Os dados também podem ser trans- 
feridos de um registro para outro. Isso 
é chamado de endereçamento de regis- 
tro à registro, cuja instrução correspon- 
dente é escrita assim: 


LD D,B 


que significa: “carregar o conteúdo do 
registro B no registro D”, 


O endereçamento relativo é emprega- 
do apenas com comando de desvio. Ele 
diz ao computador quantos bytes este 
deve saltar para a frente ou para trás. 
Por exemplo: 


JRNZ 0FC 


O mnemônico JRNZ (Jump Relati- 
ve on Non-Zero) significa: “saltar FC 
bytes em relação à posição atual, se o 
resultado da última operação efetuada 
for diferente de zero”, ou seja, se o si- 
nalizador de zero no registro de sinali- 
zadores (flag register) não for iguala 1. 
O FC diz para onde saltar. 

FC é —- 4 em complemento de dois. 
Assim, se O sinalizador de zero não es- 
tiver ligado, o microprocessador salta 
quatro bytes para trás no programa, 
contados a partir do final da instrução 
JRNZ 0FC, e esta é traduzida para 20 
FC em código de máquina. Assim, o mi- 
croprocessador salta de fato para a ins- 
trução que apareceu dois bytes antes 
dela. 

Na realidade, raramente o endereça- 
mento relativo é utilizado em linguagem 
Assembly. Normalmente os saltos são 
indicados por rótulos (labels). Estas são 
palavras inventadas pelo programador, 
que cumprem a função de marcadores 
— tal como INICIO — destinados a as- 
sinalar o começo de determinadas por- 


-ÇÕes de um programa. 


Esse marcador aparece na frente da 


instrução para onde será realizado o sal- 


to, ou ainda, logo após a instrução de 
salto. Por exemplo, a linha inicial po- 
deria ser: 


INICIO LD 4,07 
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e em algum outro ponto do programa 
apareceria a instrução de salto: 


DINZ INICIO 


O DINZ (Decrement and Jump on 
Non-Zero) significa: ''reduzir de 1 0 va- 
lor do registro B e saltar para a instru- 
ção logo a seguir, onde o rótulo INICIO 
estiver colocado, no caso de o sinaliza- 
dor de zero não estar ligado”. Ao tra- 
duzir manualmente para código de má- 
quina, você precisará elaborar os saltos 
relativos por sua própria conta. 


“+ RS 


A forma mais simples de endereça- 
mento no microprocessador 6502 é o en- 
dereçamento implícito. Na verdade, ele 
não é propriamente um endereçamento. 
Por exemplo: 


CLC 


significa: “limpar o sinalizador de trans- 
porte (Clear Carry Flag)". Não é neces- 
sário nenhum tipo de endereço como ar- 
gumento. A ação é executada no sinali- 
zador de transporte, cujo endereço está 
implícito na instrução. 

No endereçamento imediato o dado 
segue diretamente a instrução. Por 
exemplo: 


LDA +&04 


Essa operação carrega o acumulador 
com o número 4. O comando LDA é 
traduzido, na tabela de códigos de ope- 
rações do 6502, para A9 quando esta 
modalidade de endereçamento é utiliza- 
da. Assim, a instrução completa passa 
a ser A904, 

Já no endereçamento absoluto, o en- 
dereço completo de uma locação de me- 
mória segue o mnemônico. Por 
exemplo: 


LDA & 1122 


significa: “carregar o acumulador com 
o dado armazenado na locação de me- 


mória 1122". Essa forma também é co- 
nhecida como endereçamento direto. 

A tradução para o LDA com ende- 
reçamento absoluto é o código hexade- 
cimal AD, No exemplo acima, a instru- 
ção completa é traduzida para AD 2211. 
Observe que essa operação tem três 
bytes e que os dois bytes do endereço são 
trocados de ordem, quando se traduz da 
linguagem Assembly para o Apple. 

Na página O — isto é, de 0000 a 00FF 
— não é preciso especificar o primeiro 
byte de endereço, mas deve-se utilizar 
um código de operação especial de pá- 
gina O (chamado de código de operação 
de endereço curto), o qual diz ao com- 
putador para olhar para um endereço de 
um byte. 

O código de operação para LDA na 
modalidade de endereçamento de pági- 
na 0 é AS. Assim, uma instrução como: 


LDA &7F 


será traduzida para ASTF. 

Com o endereço absoluto e o ende- 
reço de página 0, é possível utilizar o en- 
dereçamento indexado, no qual o con- 
teúdo de um dos registros de indexação 
—-X e Y- é acrescentado ao endereço 
dado com a instrução, para fornecer um 
segundo endereço que será utilizado. 
Por exemplo: 


LDA &1122,X 


Suponha que o conteúdo de registro À 
seja 33. Acrescentando-se 33 a 1122, 
obtém-se 1155: o acumulador é, então, 
carregado com o dado que se encontra 
na locação de memória 1155. 

Ambos os registros X e Y podem ser 
empregados para indexar tanto o ende- 
reçamento absoluto quanto o de pági- 
na O. 

Mas note que, se a soma do conteú- 
do do registro X com o endereço da pá- 
gina O for maior do que FF e, em virtu- 
de disso, cair na página 1, o byte mais 
significativo será ignorado. No endere- 
camento de página zero, indexado ou 
qualquer outro, o endereço utilizado 
sempre estará na página 0. 

Ao usar endereçamento indexado 


deve-se consultar o código mnemônico 
em Assembly, correspondente à página 
0X, página 0Y, absoluto X ou absoluto 
vs 

Também é possível endereçar indire- 
tamente uma locação de memória, 
utilizando-se o endereçamento indireto. 
Nesta forma, o código de operação é se- 
guido por um endereço entre parênteses. 
Isso significa que o microprocessador 
encontrará nesta locação um segundo 
endereço, o qual será empregado para 
acessar o dado. Por exemplo: 


IMP (41530) 


significa: salte para o endereço dado na 
locação de memória 1530. Mas como 
qualquer locação de memória pode re- 
ter apenas um byte, e como são neces- 
sários dois bytes para compor um ende- 
reço, o microprocessador olha para 1530 
e 1531. A primeira locação contém o 
byte menos significativo, e a segunda, 
o byte mais significativo, de acordo com 
a convenção utilizada para esse micro- 
processador. Assim, se a locação de me- 
mória 1530 contém 2F, e a locação de 
memória 1531 contém 13, o micropro- 
cessador saltará para a locação de me- 
mória 132F. 

Existem também duas maneiras de 
indexar endereços indiretos. Com o re- 
gistro X você poderá acrescentar um 
deslocamento ao primeiro endereço (o 
endereço fornecido na instrução). O 
procedimento é chamado de endereça- 
mento indireto pré-indexado. Alterna- 
tivamente, você poderá acrescentar um 
deslocamento do registro Y para o se- 
gundo endereço (o endereço nas loca- 
ções de memória fornecido na instrução 
original). Isso é chamado de endereça- 
mento indireto pós-indexado. 

Esta é a aparência de instruções des- 
te tipo, em linguagem Assembly: 


LDA (&1122,X) e LDA (&1122),Y 


O primeiro código usa o endereça- 
mento pré-indexado, e o segundo, o pós- 
indexado. Para se consultar os códigos 
hexadecimais correspondentes, deve-se 
procurar o LDA sob (indireto,X) e (in- 
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direto),Y. Isso fornecerá Ale Bl respec- 
tivamente. Assim, as duas instruções 
acima seriam traduzidas para Al 22H 
eB12211. 

As instruções de desvio são saltos 
condicionais. Por exemplo: 


BEQ 


significa: desviar se for igual a (Branch 
if EQual) — isto é, se o sinalizador ze- 
ro estiver igual a 1. As instruções de des- 
vio podem utilizar endereçamento rela- 
tivo em alguns tipos de Assembler. 


BEQ +&04 


significa: salte quatro bytes para a frente 
a partir do início da próxima instrução, 
se o sinalizador zero estiver igual a 1. 

Por meio de rótulos, indica-se ao mi- 
croprocessador o ponto do programa 
para onde o desvio deve ser realizado. 
A primeira instrução a partir deste pon- 
to é simplesmente precedida pelo rótu- 
lo. Por exemplo: 


INICIO LDA &04 


ao passo que a instrução que produz o 
desvio terá: 


BEQ INICIO 


O Assembler se encarregará, então, de 
calcular o desvio relativo. No entanto, 
se você está traduzindo manualmente 
uma listagem em Assembly, a respon- 
sabilidade pelo cálculo será sua. Códi- 
go de máquina não emprega rótulos, 
apenas números. Os microprocessado- 
res 6510 e 6502 comportam ainda mais 
um tipo de endereçamento — o endere- 
camento por acumulador —, usado 
principalmente com instruções de deslo- 
camento e rotação de bits. Por exemplo: 


ASL A 


significa: desloque o acumulador de um 
bit (Accumulator Shift Left). É possi- 
vel utilizar esta instrução, também, com 
outras locações de memória, e não ape- 
nas com o acumulador. Neste caso, bas- 


ta substituir o A, no exemplo acima, pe- 
lo endereço de memória cujo conteúdo 
você quer deslocar. Esta locação pode 
ser indexada com o registro X, apenas. 

A instrução tem O seguinte efeito: o 
bit menos significante da memória é ze- 
rado, o bit mais significante é colocado 
no registro indicador de transporte 
(carry flag), e os bits restantes são des- 
locados uma posição à esquerda. Da 
mesma forma, existe o ASR (Accumu- 
lator Shift Right), para efetuar desloca- 
mentos de bits à direita. 


Edge o dad e E 

O microprocessador Motorola 6809, 
utilizado nos computadores compatíveis 
com a linha TRS-Color, tem um tipo de 
endereçamento implícito, também cha- 
mado endereçamento de registros, 

Esta expressão refere-se às Instruções 
da linguagem Assembler que não preci- 
sam ser acompanhadas de um endereço 
pois operam em um registro interno do 
microprocessador, que é estipulado pe- 
la própria instrução. Por exemplo: 


DECA 


significa: diminua de 1 o registro A (De- 
crement Accumulator). O código hexa- 
decimal correspondente, que pode ser 
encontrado na tebela de conversão do 
manual do microprocessador, é 4A. 

No endereçamento imediato, o dado 
a ser utilizado é o próprio argumento da 
instrução. Por exemplo: 


ADDB +57 


significa: adicione 7 ao registro B. O códi- 
go para ADD em modo imediato é CB, em 
hexadecimal, de modo que a instrução 
completa acima é traduzida para CB 07. 
Existe ainda outra forma de endere- 
camento imediato, na qual se usa um se- 
gundo byte, chamado pós-byte. Neste 
caso, a instrução assume a forma; 


TFR A,B 


que significa: transferir o conteúdo do 





registro A para o registro B. 

Para traduzir essa instrução para có- 
digo de máquina, deve-se consultar o có- 
digo TFR na seção de endereçamento 
imediato da tabela. Isto nos dá o códi- 
go IF. A seguir, o pós-byte é avaliado 
um nibble (um grupo de quatro bits) de 
cada vez. 

Em peral, para usar esta instrução 
com o 6809, atribui-se um dígito hexa- 
decimal para cada registro. Dois desses 
digitos são unidos para formar o pós- 
byte. Por exemplo, o registro A recebe 
o valor de 8, e o registro B, o valor de 
9. De modo que: 


TFR A,B 


é traduzido para IF 89. Se, ao contrá- 
rio, a instrução tivesse sido: 


TFR B,A 


a instrução correspondente em código 
de máquina seria IF 98. 

No endereçamento absoluto, ou am- 
pliado, a instrução é acompanhada do 
endereço de dezesseis bits da locação de 
memória a ser utilizada. Por exemplo: 


STA $7530 


significa: armazene o conteúdo do acu- 
mulador da memória &H7530 (Store 
Accumulator). A tradução, no caso, se- 
ria B7 75 30 (note que os dois últimos 
bytes, correspondentes ao endereço, são 
mantidos na ordem direta, como é obri- 
gatório para a maior parte dos outros 
tipos de microcomputador). 

A instrução é um pouco complicada, 
pois envolve três bytes. Usando-se en- 
dereçamento direto, porém, podemos 
reduzi-la para uma instrução de dois 
bytes. O microprocessador 6809 tem um 
registro de página direta, que armaze- 
na o byte mais significativo de um en- 
dereço. Assim, todas as memórias na- 
quela página podem ser endereçadas 
usando-se apenas um byte, no caso o 
menos significante. 

Esse recurso funciona da seguinte 








maneira: O registro de página direta é 
carregado usando-se a instrução TFR, 
mencionada acima, ou a instrução EXG 
(EXchanGe), que troca os conteúdos de 
dois registros entre si. 


EXG A,DP 


Na instrução acima, pede-se para in- 
tercambiar os registros A e página dire- 
ta (Direct Page). A instrução não ape- 
nas define a página direta com o que foi 
carregado em A com um comando LDA 
prévio; ela também armazena o núme- 
ro de página direta previamente retido 
por DP, de volta para o registro A. Da- 
li esse número pode ser jogado para uma 
locação de memória qualquer, usando 
a instrução STA, 

O byte mais significante da página di- 
reta — 75, neste exemplo — está agora 
definido, e o bvte menos significante po- 
de ser dado com a instrução. Neste ca- 
so, para fazer a tradução manual, é ne- 
cessário consultar a instrução STA na 
tabela de códigos, sob a seção de ende- 
reçamento indireto. O resultado é 97, 
em hexadecimal. Assim, a instrução 
completa do exemplo será 9730. 

Obviamente, não vale a pena repetir 
todo este procedimento cada vez que se 
quiser armazenar dados em uma loca- 
ção de memória. Definir o endereço- 
base da página direta toma muito mais 
tempo do que o economizado com a re- 
dução da instrução de três bytes para 
dois bytes. Mas muitas vezes é suficien- 
te definir a página direta no começo de 
um segmento de programa e, daí em 
diante, armazenar todos os dados na 
mesma página. 

Endereçamento indireto ocorre quan- 
do o microprocessador precisa examinar 
uma memória indicada por um endere- 
ço que, por sua vez, contém um segun- 
do endereço, no qual estão os dados que 
serão carregados no acumulador. A for- 
ma de notação utilizada é entre col- 
chetes: 


LDA |[SFEEE] 


Por meio desta instrução, pede-se ao 
microcomputador para recuperar um 
endereço, nas locações de memória 
FEEE e FFFF (o endereço completo, 
com dois bytes). 

Prosseguindo, a instrução carrega no 
acumulador A o conteúdo na locação 
com este segundo endereço. 

O endereço indireto também pode ser 
realizado com os registros U,S, X e Y, 
bem como com o cortador de programa. 

Em todos esses casos de endereça- 
mento indireto, é necessário consultar o 
mnemônico da instrução na tabela, sob 


a seção de endereçamento Cinderádo. pa- 
ra se obter o código correspondente. Em 
seguida, deve-se consultar o pós-byte. 

No exemplo dado acima, consulta-se 
LDA sob a seção de endereçamento in- 
dexado, e se obtém A6. Depois, con- 
sulta-se o endereço [mmmm), que indi- 
ca um endereço geral de dezesseis bytes, 
na tabela de pós-bytes. Isto dá 9 F (ou 
BF, ou DF ou FF, pois os pós-bytes 
são repetidos para cada registro: como 
[mmmm] é independente de qualquer re- 
gistro, aparece quatro vezes). 

Assim a instrução completa: 


LDA [$FFFE] 


é traduzida para A6 9F FF FE. 

Usando os registros U, 5, X e Y, bem 
como o contador de programa, pode-se 
estipular tanto o endereçamento não-in- 
direto (sem colchetes), quanto o ende- 
reçamento direto (com colchetes), usan- 
do-se deslocamentos (offsets). Os des- 
locamentos podem ser constantes — de- 
cimais, hexadecimais de oito ou dezes- 
seis bits — ou o conteúdo de outros re- 
gistros. Este conteúdo é somado ou sub- 
traído do conteúdo-base de um dos cin- 
co endereços indexáveis. 


LDA 0,X 


significa: carregue o registro acumula- 
dor com dados na locação de memória, 
cujo endereço está armazenado no re- 
gistro X. Nesse exemplo, o deslocamen- 
to é zero. Outros exemplos: 


LDA 1,X 


significa: carregar o acumulador com o 
endereço em X, somado de 1. 


LDA — 16,Y 


significa: carregar o acumulador com o 
endereço em Y, diminuido de 16. 


LDA ($10,X) 


é a versão para endereçamento indexa- 
do. Ele carrega o acumulador com o 
conteúdo da locação de memória cujo 
endereço está indicado em X, e que é 
adicionado de 10 (em hexadecimal). 

Em todos estes casos, o código ope- 
racional para LDA pode ser encontra- 
do na seção de endereçamento indexa- 
do, e o pós-byte apropriado precisa ser 
adicionado, a partir do que for encon- 
trado na tabela de pós-bytes. Desloca- 
mentos de oito bits e endereços de de- 
zesseis bits seguem-se a isto. 

Desvios em linguagem Assembler são 
programados por meio das instruções 


IMP e JSR. Estes desvios podeis ser de- 
finidos em termos de endereços finais de 
página direta, ampliados, ou, ainda, in- 
dexados, de modo que os códigos de 
máquina equivalentes se alteram de 
acordo. Desvios condicionais, entretan- 
to, utilizam endereçamento relativo. 

Com endereçamento relativo, 
informa-se à UCP quantos bytes o pro- 
grama deve pular para a frente ou para 
trás em relação à instrução de desvio. 

Existem dois tipos de desvios: um 
desvio ordinário de oito bits, que pula 
para até 127 bytes para a frente ou 125 
bytes para trás, e um desvio longo de de- 
zesseis bits, que pode abranger 32 767 
bytes para tras. 


BEQ SFA 


pulará seis bytes para trás, a partir do 
início da instrução seguinte, se o indi- 
cador de zero (zero flap) estiver ligado. 
FA é — 6 em complemento de dois. Al- 
ternativamente, temos o desvio longo: 


LBEQ $0400 


que saltará 2560 bytes para a frente, se 
o indicador de zero estiver ligado. 

Os desvios sempre utilizam endereça- 
mento relativo — não há outro tipo de 
endereçamento disponivel para eles. Po- 
rém, como muitas vezes é trabalhoso 
calcular o tamanho de um salto, 
procura-se utilizar rótulos. 

Os rótulos são palavras (simbólicas) 
criadas pelo programador, que indicam 
ao microprocessador qual é o ponto do 
programa para onde o desvio deve ser 
realizado e, a partir deste ponto, a pri- 
meira instrução é simplesmente precedi- 
da pelo rótulo. Por exemplo: 


INICIO DECA 


ao passo que a instrução que produz o 
desvio terá: 


BEQ INICIO 


O Assembler se encarregará, então, 
de calcular o desvio relativo, que pode- 
rá ser para a frente, se o rótulo estiver 
depois da instrução de desvio, ou para 
trás, se estiver antes dela. Entretanto, se 
você está traduzindo manualmente uma 
listagem em Assembly, a responsabili- 
dade pelo cálculo será sua, já que códi- 
go de máquina não emprega rótulos, 
apenas números. Para fazer o cálculo, 
conta-se o número de bytes a partir do 
final da instrução de desvio até o come- 
co da instrução para a qual se deseja 
saltar. Lembre-se que, para um sal- 
to longo, isto tomará dois bytes. 
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PROGRAMAÇÃO DE JOGOS 


Crie suas próprias aventuras e descubra inúmeras dicas 
que poderão torná-las mais envolventes e excitantes. 


CÓDIGO DE MÁQUINA 


Se você deseja maior intimidade com o computador, 
exercite-se na tradução do Assembly para código de máquina. 


PROGRAMAÇÃO BASIC 


Aprenda a utilizar conjuntos bidimensionais para uma eficiente 
armazenagem de dados inter-relacionados. 


ADORES 
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CURSO P 


Ç Dura 
a 
UM 





